$file = $ARGV[0];
chomp($file);
open(BUFF,"$file.tfam") or die "not able to read input tfam\n";
$file1 = $file."_temp.tfam";
open(WRBUFF,">$file1") or die "not able to write\n";
while(<BUFF>)
{
	chomp($_);
	@a = split(" ",$_);
	@b = split("-",$a[1]);
	$a[1] = "$b[0]-$b[1]-$b[2]-$b[3]";
	$_ =join(" ",@a);
	print WRBUFF $_."\n";
}
$file1 = $file."_original_tfam";
system("mv $file.tfam $file1");
$file1 = $file."_temp.tfam";
system("mv $file1 $file.tfam");
